0 VIC=53248:POKE2040,11:POKE2041,13:POKE2042,14:POKE2043,15:FORX=704TO767:READA:POKEX,A:NEXT:FORX=832TO1021:READA:POKEX,A:NEXT:PRINT"MYSTIC CASTLE V1.20 BY PAUL PANKS"
1 DATA252,7,239,130,8,41,189,23,170,82,169,69,81,81,66,84,165,65,54,77,128,53,21
2 DATA128,44,166,128,44,70,128,74,10,64,85,181,65,69,20
3 DATA66,186,11,165,124,7,203,0,0,22,192,0,45,191,255,250,95,255,244,32,0,8,31,255,240,0
4 DATA63,7,192,21,10,160,143,27,176,205,20,80,171,20,32,85,26,0,165,21,0,86,202,128,45,133,64,90,131,32
5 DATA 182,131,96,107,67,160,210,189,96,161,65,64,64,190,128,128,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6 DATA127,239,240,86,165,160,105
7 DATA98,64,77,35,64,11,2,192
8 DATA75,34,192,109,99,64,93,171,80,75,38,224,91,170,208,109
9 DATA99,64,77,35,64,11,2,192,18,130,192,36,69,32,127,239,240,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10 DATA 63,192,0,94,32,0,173,240
11 DATA0,210,208,0,215,48,0,176,16,0,180,0,0,204,0,0,212,0,0,208,0,0,176,0,0
12 DATA176,48,0,183,24,0,210,168,0,205,216,0,126,240,0,63,224,0,0,0,0,0,0,0,0,0,0,0,0
18 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147]"
19 PRINTCHR$(14)"[147]"
20 GOSUB250
21 DIMVB$(19),WD$(26),RN$(36),DE$(76),M(36,6),LO(62),OB$(62),EX$(62),RE$(15),DY,RM,TM$,HP,HM,EX,CT,GP,HV,EV,FV,DV,SI,X,I,A$,RY$,Z$:HR=6:M=0
22 TM$="[211]UNRISE":GP=150:DIM AO$(62):RM=1:GOSUB197:PRINTCHR$(14)CHR$(8)""SPC(13)"[208]LEASE WAIT"
23 FORX=1TO76:READDE$(X):NEXTX:FORX=1TO14:READRE$(X):NEXTX:GOSUB242:PRINT"[147]":GOSUB215
24 PRINT"[147][193]RE YOU PLAYING A SAVED GAME?";:GOSUB202:IFRY$="Y"ORRY$="[217]"THENRM=1:H=200:HP=200:GP=300:EP=.:CT=0:DY=0:GOTO29
25 H=200:HP=200:GP=300:EP=.:CT=0:DY=0:PRINT"[147][206]EW CHARACTER[146]":PRINT:PRINT"[197]NTER YOUR CHARACTER'S NAME BELOW:"
26 GOSUB 61:IFLEN(Z$)>16THENPRINT"[195]HARACTER NAME EXCEEDS MAXIMUM!":GOSUB197:GOTO25
27 NA$=Z$:PN$=Z$:PRINT"[215]HAT WOULD YOU LIKE TO BE KNOWN AS?     (I.E. [199]EOFF THE [194]RAVE[146]):"
28 GOSUB 61:KN$=Z$:PRINT:PRINT"[206]OW ENTER AN ALIGNMENT:":PRINT"[204][146]AWFUL,[195][146]AOTIC,[206][146]EUTRAL":GOSUB194:AL$=RY$:GOTO207
29 PRINTCHR$(14)"[147][195]ONTINUE [211]AVED [199]AME[146]":PRINT:DK$="D":K$="0":PRINT"[201]NSERT DISK...":PRINT"[200]IT [211][208][193][195][197] [194][193][210][146], OR Q[146] TO ABORT.":GOSUB194:IFRY$="Q"THENCLR:RUN
30 PRINT
31 SI=0:INPUT"[212]ITLE    [157]*[157][157][157]";LT$:GOSUB200:IFLT$="*"ORSI=1THEN31
32 OPEN2,8,2,"0:"+LT$+",S,R":FORX=7TO62:INPUT#2,LO(X):NEXT
33 INPUT#2,RM:INPUT#2,CT:INPUT#2,EP:INPUT#2,GP:INPUT#2,H:INPUT#2,HP:INPUT#2,PN$:INPUT#2,KN$:INPUT#2,AL$:CLOSE2:GOTO35
34 CT=1:LO(7)=-1:DY=0:TM$="[211]UNRISE":M=0:PM=0:AM=1
35 LO(55)=9:PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB250:GOSUB257:GOSUB63000:PRINT:PRINT"[207]BJECTS PRESENT HERE:":PRINT:SI=0:FORX=7TO60:IFLO(X)=RMTHENPRINTOB$(X):SI=1
36 NEXT:GOSUB240:PRINT"[207]BVIOUS EXITS:":PRINT:FORX=1TO6:IFM(RM,X)>0THENPRINTOB$(X)"  ";
37 NEXT:PRINT
38 OB$(24)="CANTEEN":EX$(52)="[212]HIS IS [205]ORDIMAR!--[197]VIL OF THE [193]NCIENTS![217]OU SENSE GREAT POWER FLOWING THROUGH   HIM!"
39 REM MAIN LOOP
40 GOSUB199:N=0:V=0:Z$="":PRINT">";:GOSUB61:FORX=1TO25:WD$(X)="":NEXT:GOSUB224:DY=DY+1:IFZ$="HELP"THENGOTO243
41 Y=1:WA=1:FORX=1TOLEN(Z$):IFMID$(Z$,X,1)=" "THENY=X:WD$(WA)=LEFT$(Z$,Y-1):WA=WA+1:WD$(WA)=MID$(Z$,Y+1,X+1)
42 NEXT:WD$(WA)=MID$(Z$,Y+1,X+1):IFZ$="GRAPHIC"ORZ$="HELP"ORZ$="[133]"ORA$="HELP"THENGOTO243
43 IFZ$="LIST"ANDRM=9THENGOSUB385:GOTO40
44 IFZ$="I"ORZ$="INV"ORZ$="INVE"ORZ$="INVEN"ORZ$="IN"ORZ$="INVENTORY"ORZ$="STAT"ORZ$="STATS"ORZ$="STATISTICS"ORZ$="VITALS"THENGOTO54
45 VB$(1)="GO":VB$(2)="GET":VB$(3)="TAKE":VB$(4)="DROP":VB$(5)="WIELD":VB$(6)="UNWIELD":VB$(7)="WEAR":VB$(8)="REMOVE":VB$(9)="BUY":VB$(10)="SELL":VB$(11)="EAT"
46 VB$(12)="DRINK":VB$(13)="EXAMINE":VB$(14)="READ":VB$(15)="LIGHT":VB$(16)="EXTINGUISH":VB$(17)="CLIMB":VB$(18)="USE":VB$(19)="KILL":IFZ$="QUIT"THENGOTO298
47 IFZ$="L"ORZ$="LOOK"ORZ$="VIEW"THENGOTO35
48 FORX=1TO19:IFVB$(X)=WD$(1)THENV=X
49 NEXT:FORX=1TO60:IFOB$(X)=WD$(2)ORAO$(X)=WD$(2) THEN N=X
50 NEXT:IFV=0THENPRINT"[214]ERB NOT RECOGNIZED. [212]YPE HELP[146]":PRINT"FOR THE GAME VOCABULARY.":GOTO40
51 IFN=0THENIFWD$(1)<>"EXAMINE"ANDWD$(1)<>"READ"ANDWD$(1)<>"CLIMB"THENPRINTRE$(4):GOTO40
52 GOSUB224:ONVGOTO70,77,87,89,97,103,106,110,113,122,128,133,139,144,149,153,156,160,168
53 PRINT"[207]K.":GOTO40
54 IFCT=0THENPRINT"[217]OU ARE EMPTY HANDED.":GOTO40
55 PRINT"[217]OU ARE CARRYING:":WD=0:CT=0:WO=0:FORX=7TO60:IFLO(X)=-1THENPRINT"  "OB$(X)".":CT=CT+1
56 IFLO(X)=108THENPRINT"  "OB$(X)" (WIELDED).":WD=1:CT=CT+1
57 IFLO(X)=205THENPRINT"  "OB$(X)" (WORN).":CT=CT+1:WO=WO+1
58 IFLO(X)=405THENLT=1:PRINT"  "OB$(X)" (LIT[146])":CT=CT+1
59 NEXT:IFWO>0THENPRINT"[217]OUR ARMOR IS PROTECTING"WO*30"%":PRINT"OF YOUR BODY."
60 GOTO40
61 Z$=""
62 A=20:Z=1:Z$="A":PRINT"[164][157]";:A$="":POKE198,0
63 GETZ$:IFZ$=""THENA$="HELP":Z=13:Z$=CHR$(13)
64 IFZ$="[145]"ORZ$="[157]"ORZ$="[147]"ORZ$=""ORZ$=""THEN63
65 Z=ASC(Z$):ZL=LEN(A$):IFZL>ATHEN67
66 IFZ>31THENA$=A$+Z$:PRINTZ$"[164][157]";:GOTO63
67 IFZ=13ANDZLTHENPRINT" ":Z$=A$:A$="":RETURN
68 IFZ=20ANDZLTHENA$=LEFT$(A$,ZL-1):PRINT " [157][157][164][157]";
69 GOTO63
70 IFN>6THENPRINTRE$(1):GOTO40
71 IFM(RM,N)=0THENPRINTRE$(8):GOTO40
72 IFN=4ANDRM=31THENIFLO(52)=RMTHENPRINT"[217]OUR PATH IS":PRINT"BLOCKED BY "OB$(52)"!":GOTO40
73 IFN=1ANDRM=33THENIFLO(58)=RMTHENPRINT"[217]OUR PATH IS":PRINT"BLOCKED BY "OB$(58)"!":GOTO40
74 IFM(RM,N)>13ANDM(RM,N)<21ORM(RM,N)>31THENIFLT=0THENPRINT"[201]T'S TOO DARK TO MOVE!":PRINT"[198]IND A TORCH OR LANTERN...":GOTO40
75 IFRM=11ANDN=1THENPRINTRE$(3):GOTO40
76 RM=M(RM,N):GOSUB197:GOTO35
77 IFLO(N)<>RMTHENIFLO(N)<>-1ANDLO(N)<>105ANDLO(N)<>205ANDLO(N)<>405THENPRINTRE$(11)OB$(N):GOTO40
78 IFLO(N)=-1ORLO(N)=108ORLO(N)=205ORLO(N)=405THENPRINTRE$(2)OB$(N):GOTO40
79 IFN<6THENPRINTRE$(12):GOTO40
80 IFN=34ORN=35ORN>45THENPRINTRE$(13)OB$(N):GOTO40
81 MX=8:IFLO(9)=-1ORLO(9)=205THENMX=16
82 IFLO(18)=-1THENMX=12
83 IFLO(19)=-1THENMX=14
84 IFCT>=MX THEN PRINT"[212]OO HEAVY. [217]OU'LL NEED TO DROP":PRINT"SOME WEIGHT.":GOTO40
85 IFN=8ANDLO(24)<>-1THENPRINT"[217]OU NEED SOMETHING TO PUT IT IN FIRST.":GOTO40
86 LO(N)=-1:CT=CT+1:PRINT"[207]K.":GOTO40
87 REM TAKE
88 GOTO77
89 REM DROP
90 IFLO(N)=-1THENPRINT"[207]K, DROPPED...":LO(N)=RM:CT=CT-1:GOTO40
91 IFLO(N)=108ORLO(N)=205ORLO(N)=405THENPRINT"[201]T MUST BE CARRIED TO BE DROPPED.":GOTO40
92 IFN=33ANDRM=36ANDLO(35)=RMTHENPRINT"[199]OMAR THANKS YOU.":GOSUB197:PRINT"[200]E SAYS,'[198]OR YOUR KINDNESS, [201] SHALL     INCREASE YOUR VITALITY.'":GOSUB197:HP=HP+200:H=HP:GOTO94
93 PRINTRE$(5)OB$(N):GOTO40
94 IFLO(N)=-1THENCT=CT-1:LO(N)=1035
95 IFLO(N)=205THENLO(N)=-1:CT=CT-1:LO(N)=1035:WO=WO-1
96 GOTO40
97 REM WIELD
98 IFLO(N)=108THENPRINT"[201]T'S ALREADY BEING WIELDED!":GOTO40
99 IFLO(N)=205THENPRINT"[217]OU ARE WEARING THAT. [201]T CANNOT":PRINT"BE WIELDED.":GOTO40
100 IFLO(N)<>-1THENPRINTRE$(5)OB$(N):GOTO40
101 IFN>26ANDN<33ORN>35ANDN<40THENIFWD=0THENLO(N)=108:WD=1:PRINT"[207]K.":GOTO40
102 PRINT"[212]HAT CANNOT BE WIELDED.":GOTO40
103 REM UNWIELD
104 IFLO(N)=108THENLO(N)=-1:WD=0:PRINT"[207]K.":GOTO40
105 PRINTRE$(5)OB$(N):GOTO40
106 REM WEAR
107 IFLO(N)<>-1THENPRINTRE$(11):GOTO40
108 IFN=9ORN=11ORN=26ORN=33THENLO(N)=205:PRINT"[207]K.":WO=WO+1:GOTO40
109 PRINT"[212]HAT CANNOT BE WORN.":GOTO40
110 REM REMOVE
111 IFLO(N)=205THENLO(N)=-1:WO=WO-1:PRINT"[217]OU REMOVE "OB$(N)".":GOTO40
112 PRINTRE$(11):GOTO40
113 MX=8:IFLO(9)=-1ORLO(9)=205THENMX=16
114 IFLO(18)=-1THENMX=12
115 IFLO(19)=-1THENMX=14
116 IFRM<>9THENPRINT"[217]OU CAN'T DO THAT HERE!":GOTO40
117 IFLO(55)=998THENPRINT"[212]HE CLERK ISN'T HERE.":GOTO40
118 IFLO(N)=75THENGOSUB406:IFGP=>PANDP<>0ANDCT<MXTHENGP=GP-P:CT=CT+1:LO(N)=-1:PRINT"[212]HE CLERK SAYS,'[212]HANK YOU.'":GOTO40
119 IFGP<PTHENPRINT"[212]HE CLERK SHAKES HIS HEAD.":PRINT"[200]E SAYS,'[217]OU DON'T HAVE ENOUGH GOLD.'":GOTO40
120 IFCT>=MXTHENPRINT"[217]OU ARE CARRYING TOO MUCH WEIGHT.":GOTO40
121 PRINT"[212]HE CLERK SAYS,'[211]ORRY. [201] CAN'T DO THAT.'":PRINT"[199]OLD:[146]"GP:GOTO40
122 REM SELL
123 IFRM<>9THENPRINT"[217]OU CAN'T DO THAT HERE!":GOTO40
124 IFLO(55)<>RMTHENPRINT"[212]HE CLERK ISN'T HERE.":GOTO40
125 IFLO(N)=205ORLO(N)=108THENPRINT"[212]HE CLERK SAYS,'[217]OU'LL NEED TO UNEQUIP":PRINT"THAT FIRST.'":GOTO40
126 IFLO(N)<>-1THENPRINT"[212]HE CLERK SHAKES HIS HEAD.":PRINT"[200]E SAYS,'[217]OU AREN'T CARRYING THAT.'":GOTO40
127 GOSUB406:GP=GP+P:CT=CT-1:LO(N)=75:PRINT"[212]HE CLERK HANDS YOU"P"GOLD COINS.":PRINT"[212]HE CLERK SAYS,'[212]HANK YOU.'":GOTO40
128 REM EAT
129 IFLO(N)<>-1THENPRINTRE$(14):GOTO40
130 IFN=26THENPRINT"[217]OU FEEL FUNNY.":GOSUB197:PRINT"[212]HE WOLFSBANE WAS POISONOUS!":GOSUB197:PRINT"[215]ELL, YOU DIED...":GOSUB197:GOTO298
131 IFN=7THENLO(7)=75:CT=CT-1:PRINT"[217]OU EAT THE FOOD.":GOSUB197:PRINT"[217]OUR FATIGUE IS LESSENED.":HV=0:HE=0:H=HP:GOTO40
132 PRINT"[217]OU CANNOT EAT THAT HERE.":GOTO40
133 REM DRINK
134 IFLO(N)<>-1THENPRINT"[217]OU CAN'T DRINK THAT HERE.":GOTO40
135 IFN=8ANDLO(8)=-1THENPRINT"[212]HE WATER IS VERY REFRESHING.":LO(8)=7:CT=CT-1:GOSUB197:HE=0:H=HP:GOTO40
136 IFN=10 OR N=12THENPRINT"[217]UCK! [201]T TASTES FUNNY...":GOTO40
137 IFN=24THENIFLO(8)<>-1THENPRINT"[212]HE WATERSKIN IS EMPTY.":GOTO40
138 PRINT"[217]OU CAN'T DRINK THAT HERE.":GOTO40
139 REM EXAMINE
140 IFN=0ORN<7THENGOTO143
141 IFLO(N)<>-1ANDLO(N)<>108ANDLO(N)<>205ANDLO(N)<>405ANDLO(N)<>RMTHENPRINT"[217]OU DON'T SEE THAT HERE.":GOTO40
142 IFLO(N)=RMORLO(N)=-1ORLO(N)=108ORLO(N)=205ORLO(N)=405THENPRINTEX$(N):GOTO40
143 PRINTRE$(6):GOTO40
144 REM READ
145 IFLO(N)<>-1ANDLO(N)<>RMTHENPRINT"[217]OU DON'T SEE THAT HERE.":GOTO40
146 IFN=41THENPRINT"[212]HE SIGN READS:'[215]ELCOME TO [197]LDOR.'":GOTO40
147 IFN=45THENPRINT"[212]HE WORDS ARE BEYOND YOUR KNOWLEDGE":PRINT"OR SKILL.":GOTO40
148 PRINT"[201]T WASN'T TOO INTERESTING AFTER ALL...":GOTO40
149 REM LIGHT
150 IFLO(N)<>-1ANDLO(N)<>405THENPRINT"[217]OU MUST BE CARRYING THE":PRINTOB$(N)"TO LIGHT IT.":GOTO40
151 IFN=23THENLT=1:PRINT"[212]HE TORCH IS NOW LIT.":LO(23)=405:GOTO40
152 PRINT"[212]HE "OB$(N)" IS NOT":PRINT"A FLAMMABLE SUBSTANCE.":GOTO40
153 REM EXTINGUISH
154 IFLO(N)<>405THENPRINT"[212]HE "OB$(N)" IS NOT HERE":PRINT"OR IS NOT LIT.":GOTO40
155 LO(N)=-1:PRINT"[217]OU EXINTUISH THE "OB$(N)".":LT=0:GOTO40
156 REM CLIMB
157 IFWD$(2)="TREE"THENIFRM<>13THENPRINT"[217]OU CAN'T SEE A WAY.":GOTO40
158 IFWD$(2)="TREE"THENIFRM=13THENRM=36:PRINT"[217]OU SLOWLY ASCEND THE TREE...":GOSUB197:GOTO35
159 PRINT"[217]OU CAN'T SEE A WAY TO CLIMB IT.":GOTO40
160 REM USE
161 IFLO(N)<>-1ANDLO(N)<>405THENPRINT"[217]OU MUST BE CARRYING THAT TO USE!":GOTO40
162 IFN=21THENIFRM=34THENPRINT"[207]N LOCK[146]":PRINT"[212]HE CELL LOCK BREAKS!":GOSUB197:PRINT"[212]HE OLD MAN IS NOW FREE!":GOSUB197:FORX=67TO76STEP2:PRINTDE$(X):PRINTDE$(X+1):TE=1:GOTO298
163 IFN=22THENIFLO(13)=-1ANDLT=0THENLT=1:PRINT"[212]HE LANTERN IS NOW LIT.":GOTO40
164 IFN=22THENIFLO(13)<>-1THENPRINT"[217]OU NEED THE LANTERN FIRST.":GOTO40
165 IFN=13ANDLO(22)=-1ANDLT=0THENLT=1:PRINT"[212]HE LANTERN IS NOW AGLOW.":LO(13)=405:GOTO40
166 IFN=13ANDLT=1THENPRINT"[212]HE LANTERN IS ALREADY AGLOW.":LO(13)=405:GOTO40
167 PRINT"[217]OU CAN'T SEE A USE FOR "OB$(N)".":GOTO40
168 GOSUB242:WO=0:FORX=7TO45:IFLO(X)=205THENWO=WO+1
169 NEXT:IFLO(N)<>RMTHENPRINT"[201] DON'T SEE THAT HERE.":GOTO40
170 MH=INT(RND(1)*850)+1:IFN<46THENPRINT"[217]OU CAN'T KILL SOMETHING THAT ISN'T     ALIVE.":GOTO40
171 WD=0:FORX=7TO45:IFLO(X)=108THENWP=X:WD=1
172 NEXT:PRINT"[217]OU ARE FIGHTING "OB$(N)"[146].":IFWD=0THENWP=1:PRINT"[217]OU ARE WIELDING NOTHING..."
173 I=INT(RND(1)*35)+1:PRINT">":GOSUB197:IFI<5THENPRINT"[217]OU MISSED."
174 IFI>4ANDI<10THENIFLO(38)=108THENPRINT"[217]OUR [211]CIMITAR[146] GLOWS!":PRINT"[212]HE "OB$(N)" IS HIT WITH":PRINT"LIGHTNING!":MH=MH-100
175 IFI>4ANDI<10ANDLO(38)<>108THENPRINT"[217]OU HIT "OB$(N):PRINT"VERY HARD.":MH=MH-25:MH=MH-WP
176 IFI>9ANDI<15THENPRINT"[217]OU SMASHED "OB$(N):PRINT"WITH A BONE-CRUSHING SOUND!":MH=MH-50:MH=MH-WP
177 IFI>14THENPRINT"[212]HE "OB$(N)" DODGED YOUR ATTACK."
178 I=INT(RND(1)*35)+1:PRINT">":GOSUB197:IFMH<1THENPRINT"[212]HE "OB$(N)" DIED.":PRINT"[217]OU KILLED "OB$(N)".":GOSUB197:LO(N)=998:MH=500:GOTO 185
179 IFH<1THENPRINT"[193]LAS, YOU HAVE DIED.":GOSUB197:GOTO298
180 IFI<5THENPRINT"[212]HE "OB$(N)" MISSED YOU."
181 IFI>4ANDI<10 THENPRINT"[212]HE "OB$(N)" HIT YOU VERY HARD.":H=H-N:H=H+WO
182 IFI>9ANDI<15 THENPRINT"[212]HE "OB$(N)" SMASHED YOU":PRINT"WITH A BONE-CRUSHING SOUND!":H=H-50:H=H+WO
183 IFI>14THENPRINT"[217]OU DODGED THE ATTACK."
184 PRINT"[217]OUR [200][208]:"H"[146]/"HP"[146]":PRINT"[212]HE MONSTER: "MH"[146]":GOSUB197:GOTO171
185 SC=SC+N:EE=EE+N+I+H:FORX=7TO45:IFLO(X)=1000+NTHENPRINT"[217]OU FOUND "OB$(X):PRINT"ON IT!":LO(X)=RM:SC=SC+10
186 NEXT:GE=GE+I+MH:PRINT"[217]OU GAINED"EE"EXPERIENCE POINTS":PRINT"AND"GE"GOLD COINS.":GP=GP+GE:EP=EP+EE:IFEE>100THENLV=LV+1:PRINT"[217]OU GAINED A LEVEL!":HP=HP+25:H=HP
187 GOSUB197:PRINT"[147]":GOTO35
188 IFHP<H THEN HP=H
189 PRINT"[217]OU HAVE"EP"XP PTS,"GP"GOLD COINS,":PRINTH"HIT POINTS (OF"HP").":PRINT"[217]OU ARE "PN$" THE "KN$"[146]!":PRINT"[217]OUR ALIGNMENT PUTS YOU IN THE CATEGORY OF "AL$"."
190 V=20:N=1:RETURN
191 END
192 REM MORE
193 PRINT"<MORE>[146]"
194 GETRY$:IFRY$=""THENGOTO194
195 RETURN
196 REM WAIT
197 FORX=1TO1500:NEXT
198 RETURN
199 RETURN
200 IFLT$="WESTDATA"ORLEFT$(LT$,4)="MYS." THENSI=1
201 RETURN
202 VIC=53248:POKEVIC+21,0
203 GETRY$:IFRY$=""THENGOTO203
204 IFRY$="Y"ORRY$="[217]"THENPRINT"Y";:RETURN
205 IFRY$="N"ORRY$="[206]"THENPRINT"N";:RETURN
206 GOTO203
207 PRINT"[147][204]ET'S [210]EVIEW[146]":PRINT:PRINT"[217]OUR NAME IS: "NA$"[146]":PRINT"[217]OU ARE KNOWN AS "NA$"[146] THE "KN$"[146]":PRINT"[217]OUR ALIGNMENT IS: ";:IFAL$="L"THENPRINT"[204]AWFUL[146]"
208 IFAL$="C"THENPRINT"[195]HAOTIC[146]":AL$="[195]HAOTIC"
209 IFAL$="N"THENPRINT"[206]EUTRAL[146]":AL$="[206]EUTRAL"
210 PRINT:PRINT"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:PRINT"[206]OTE[146]: [215]HEN YOU RESTART A SAVED GAME,    SOME OF YOUR POSSESSIONS WILL BE GONE.  [212]HIS MAKES IT MORE";
211 PRINT" CHALLENGING. [194]ESIDES,YOU CAN ALWAYS FIND THEM AGAIN LATER.":GOSUB197:PRINT"[211]HALL WE BEGIN? (Y/N):";:IFAL$="L"THENAL$="[204]AWFUL"
212 GOSUB202:IFRY$="Y"ORRY$="[217]"THENGOSUB197:GOTO34
213 IFRY$="N"ORRY$="[206]"THENGOSUB197:GOTO25
214 GOTO207
215 FORX=7TO50:LO(X)=75:NEXT:AO$(46)="PABO":AO$(47)="JORI":AO$(48)="HARPY":AO$(49)="ISRAN":AO$(50)="VOROMIR":AO$(51)="BRIMOR":AO$(52)="MORDIMAR"
216 LO(7)=1:LO(8)=7:LO(9)=22:LO(10)=6:LO(11)=11:LO(12)=11:LO(13)=12:LO(14)=26:LO(15)=75:LO(16)=12:LO(17)=34:LO(18)=21:LO(19)=75:LO(20)=75:LO(21)=12:LO(22)=-1
217 LO(23)=-1:LO(24)=75:LO(25)=2:LO(26)=75:LO(27)=75:LO(28)=75:LO(29)=1057:LO(30)=75:LO(31)=75:LO(32)=-1:CT=3:LO(33)=25:LO(34)=998:LO(35)=36:LO(36)=75:LO(37)=75
218 LO(38)=75:LO(39)=75:LO(40)=13:LO(41)=998:LO(42)=12:LO(43)=998:LO(44)=24:FORX=45TO51:LO(X)=998:NEXT:LO(52)=31:LO(53)=8:LO(54)=16:LO(55)=9:LO(56)=18:LO(57)=15
219 LO(58)=33:LO(59)=24:LO(60)=13
220 AO$(53)="VILLAGER":AO$(54)="BYRD":AO$(55)="CLERK":AO$(56)="GIBLIN":AO$(57)="ELF":AO$(58)="BLACKWIDOW"
221 AO$(59)="THIEF":AO$(60)="TURSK":OPEN2,8,2,"0:MYS.DAT,S,R":FORX=1TO35:FORY=1TO6:INPUT#2,M(X,Y):NEXT:NEXT:CLOSE2:RN$(36)="[200]IGH ATOP THE FOREST"
222 OPEN2,8,2,"0:MYS.EXT,S,R":FORX=8TO60:INPUT#2,EX$(X):NEXT:CLOSE2:OPEN2,8,2,"0:MYS.MON,S,R":FORX=1TO60:INPUT#2,OB$(X):NEXT:FORX=1TO36:INPUT#2,RN$(X):NEXT:CLOSE2
223 EX$(7)="[211]TARRING AT THE FOOD IS BEGINNING TO    MAKE YOU QUITE HUNGRY.":RETURN
224 IFZ$="N"ORZ$="NORTH"ORZ$="GO NORTH"THENV=1:N=1
225 IFZ$="S"ORZ$="SOUTH"ORZ$="GO SOUTH"THENV=1:N=2
226 IFZ$="E"ORZ$="EAST"ORZ$="GO EAST"THENV=1:N=3
227 IFZ$="W"ORZ$="WEST"ORZ$="GO WEST"THENV=1:N=4
228 IFZ$="U"ORZ$="UP"ORZ$="GO UP"THENV=1:N=5
229 IFZ$="D"ORZ$="DOWN"ORZ$="GO DOWN"THENV=1:N=6
230 CG=CG+1:M=M+1:IFCG>100THENCG=0:HR=HR+1:M=0:HV=HV+.01:HN=HN+.01:HE=HE+.01:EP=EP+1
231 IFHR=12ANDPM$="AM"THENTM$="[193]FTERNOON":PM$="PM":HR=1:PRINT"[201]T IS PAST NOON."
232 IFHR=12ANDPM$="PM"THENTM$="[205]ORNING":PM$="AM":HR=1:DY=DY+1:PRINT"[193]NOTHER DAY HAS PASSED."
233 IFHR=6ANDPM$="AM"THENHR=7:TM$="[211]UNRISE":PRINT"[201]T IS SUNRISE."
234 IFHR=6ANDPM$="PM"THENHR=7:TM$="[211]UNSET":PRINT"[212]HE SUN IS SETTING."
235 IFHR=7ANDPM$="AM"THENHR=9:TM$="[205]ORNING":PRINT"[201]T IS EARLY MORNING."
236 IFHR=7ANDPM$="PM"THENHR=9:TM$="[197]VENING":PRINT"[201]T IS EARLY IN THE EVENING."
237 IFZ$="SAVE"ORZ$="SAVE GAME"THENIFV<>21THENINPUT"[197]NTER FILENAME";NA$:OPEN15,8,15,"S0:"+NA$+",S,W":CLOSE15:GOSUB245:V=21:N=1
238 IFZ$="SCORE"ORZ$="SC"ORZ$="?"THENIFV<>20THENGOSUB188:V=20:N=1
239 RETURN
240 IF SI=0 THEN PRINT"[206]ONE."
241 RETURN
242 VIC=53248:POKEVIC+21,0:RETURN
243 PRINT"[213]SE THESE COMMANDS[146]":PRINT"1. GO 2. GET 3. TAKE 4. WIELD           5. UNWIELD 6. WEAR 7. REMOVE 8. BUY     9. SELL 10. USE 11. CLIMB 12. LIGHT":GOSUB193
244 PRINT"13. EXTINGUISH 14. EXAMINE 15. LOOK     16. INVENTORY 17. SAVE GAME 18. SCORE   19. KILL 20. HELP 21. QUIT 22. EAT      23. DRINK":PRINT:GOTO40
245 REM SAVE GAME
246 CLOSE15:CLOSE2:OPEN2,8,2,"0:"+NA$+",S,W":FORX=7TO62:PRINT#2,LO(X):NEXT
247 PRINT#2,RM:PRINT#2,CT:PRINT#2,EP:PRINT#2,GP:PRINT#2,H:PRINT#2,HP:PRINT#2,PN$:PRINT#2,KN$:PRINT#2,AL$:CLOSE2
248 RETURN
249 REM TITLE
250 POKEVIC+21,255:POKEVIC+16,0:POKEVIC+29,255:FORX=37TO44:POKEVIC+X,5:NEXT
251 POKEVIC+0,98:POKEVIC+1,60:POKEVIC+2,146:POKEVIC+3,60:POKEVIC+4,187:POKEVIC+5,60:POKEVIC+6,227:POKEVIC+7,60
252 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]":FORX=1TO3:PRINT" [146] [146]":NEXT:PRINT"        [195][193][211][212][204][197]        [146]"
253 PRINT"[164][164][164][164][164][164][164][164][158] [198]OR THE [195]OMMODORE 64 [146][164][164][164][164][164][164][164][164][164][164]";:RETURN
256 OPEN15,8,15,"I":CLOSE15:OPEN15,8,15,"V":CLOSE15:OPEN15,8,15,"S0:MYSTIC CASTLE,P,W":CLOSE15:SAVE"MYSTIC CASTLE",8:OPEN15,8,15,"S0:M,P,W":CLOSE15:SAVE"M",8:END
257 PRINT"                                        [146]":PRINT"[145][145]"RN$(RM)"  ("TM$")[146]":PRINTRN$(RM):PRINT
258 IFLT=0THENIFRM>13ANDRM<21ORRM>31THENPRINTRE$(7):RETURN
259 IFRM=1THENPRINTDE$(43):GOSUB193:PRINTDE$(44):GOSUB193
260 IFRM=2THENPRINTDE$(45):GOSUB193:PRINTDE$(46):GOSUB193
261 IFRM=3THENPRINTDE$(47):GOSUB193:PRINTDE$(48):GOSUB193
262 IFRM=4THENPRINTDE$(49):GOSUB193:PRINTDE$(50):GOSUB193
263 IFRM=5THENPRINTDE$(51):GOSUB193:PRINTDE$(52):GOSUB193
264 IFRM=6THENPRINTDE$(53):GOSUB193:PRINTDE$(54):GOSUB193
265 IFRM=7THENPRINTDE$(33):GOSUB193:PRINTDE$(34):GOSUB193
266 IFRM=8THENPRINTDE$(35):GOSUB193:PRINTDE$(36):GOSUB193
267 IFRM=9THENPRINTDE$(55):GOSUB193:PRINTDE$(56):GOSUB193
268 IFRM=10THENPRINTDE$(37):GOSUB193:PRINTDE$(38):GOSUB193
269 IFRM=11THENPRINTDE$(39):GOSUB193:PRINTDE$(40):GOSUB193
270 IFRM=12THENPRINTDE$(41):GOSUB193:PRINTDE$(42):GOSUB193
271 IFRM=13THENPRINTDE$(31):GOSUB193:PRINTDE$(32):GOSUB193
272 IFRM=14THENPRINTDE$(29):GOSUB193:PRINTDE$(30):GOSUB193
273 IFRM=15THENPRINTDE$(27):GOSUB193:PRINTDE$(28):GOSUB193
274 IFRM=16THENPRINTDE$(25):GOSUB193:PRINTDE$(26):GOSUB193
275 IFRM=17THENPRINTDE$(23):GOSUB193:PRINTDE$(24):GOSUB193
276 IFRM=18THENPRINTDE$(1):GOSUB193:PRINTDE$(2):GOSUB193
277 IFRM=19THENPRINTDE$(21):GOSUB193:PRINTDE$(22):GOSUB193
278 IFRM=20THENPRINTDE$(19):GOSUB193:PRINTDE$(20):GOSUB193
279 IFRM=21THENPRINTDE$(15):GOSUB193:PRINTDE$(16):GOSUB193
280 IFRM=22THENPRINTDE$(3):GOSUB193:PRINTDE$(4):GOSUB193
281 IFRM=23THENPRINTDE$(17):GOSUB193:PRINTDE$(18):GOSUB193
282 IFRM=24THENPRINTDE$(5):GOSUB193:PRINTDE$(6):GOSUB193
283 IFRM=25THENPRINTDE$(7):GOSUB193:PRINTDE$(8):GOSUB193
284 IFRM=26THENPRINTDE$(9):GOSUB193:PRINTDE$(10):GOSUB193
285 IFRM=27THENPRINTDE$(11):GOSUB193:PRINTDE$(12):GOSUB193
286 IFRM=28THENPRINTDE$(13):GOSUB193:PRINTDE$(14):GOSUB193
287 IFRM=29THENPRINTDE$(57):GOSUB193:PRINTDE$(58):GOSUB193
288 IFRM=30THENPRINTDE$(59):GOSUB193:PRINTDE$(60):GOSUB193
289 IFRM=31THENPRINTDE$(61):GOSUB193:PRINTDE$(62):GOSUB193
290 IFRM=32THENPRINTDE$(63):GOSUB193:PRINTDE$(64):GOSUB193
291 IFRM=33THENPRINTDE$(63):GOSUB193:PRINTDE$(64):GOSUB193
292 IFRM=34THENPRINTDE$(65):GOSUB193:PRINTDE$(66):GOSUB193
293 IFRM=35THENPRINTDE$(25):GOSUB193:PRINTDE$(26):GOSUB193
294 IFRM=36THENPRINT"[217]OU ARE ON A BRANCH HIGH ATOP THE       FOREST. [198]ROM HERE YOU CAN SEE A CASTLE  TO THE SOUTHWEST AND A MEADOW BY A      POND PAST A HILLSIDE."
295 IFRM=36THENGOSUB193:IFLO(35)=RMTHENPRINT"[217]OU SEE A TROLL HERE, APPARENTLY        MEDITATING. [208]ERHAPS IT WOULD BE WISE    NOT TO DISTURB HIM.":GOSUB193
296 IFRM=36ANDLO(35)=RMTHENIFLO(35)=-1ORLO(35)=205THENPRINT"[212]ROLL [199]OMAR NOTICES YOUR PRESENCE.":PRINT"[200]E LOOKS UP AND SAYS:":PRINT:PRINT"'[212]HAT RING WAS ONCE MINE.'":PRINT
297 RETURN
298 REM PLAYER DIED
299 IFTE=1THENPRINT"[212]HE [197]ND![146]":GOSUB197
300 PRINT"[147][212]HANKS FOR PLAYING![146]":GOTO11000
301 REM ROOM DATA
302 DATA"[217]OU ARE STANDING IN A DARK FOREST. [212]HE  SKY ABOVE IS OBSCURED BY THE CANOPY     OF LEAVES AND FOLIAGE FROM THE TREES.   [193] PATH BREAKS OFF SOUTH OF HERE.
303 [131]"(null)OU ALSO NOTICE ONE PARTICULAR TREE     (WITH LOW-LYING BRANCHES) BY THE SIDE OFTHE MAIN PATH."
304 [131]"(null)OU ARE STANDING INSIDE A LARGE HOUSE,  POSSIBLY DATING FROM THE (null)ICTORIAN ERA. (null)HE MAIN HALL IS DECORATED WITH ELA-    BORATE PAINTINGS."
305 [131]"(null)OU ALSO NOTICE A FIREPLACE WITH A      WOODEN MANTLE ABOVE IT. (null)ESTING ON THE  MANTLE ARE SEVERAL BOOKS."
306 [131]"(null)OU ARE IN THE LIBRARY OF THE HOUSE. ATN  LARGE GRAND PIANO IS SET AGAINST THE    BACK WALL. (null)OU NOTICE SOME SHEET MUSIC  ABOVE THE PIANO KEYS."
307 [131]"(null)O THE WEST OF THE LIBRARY STANDS A     STATUE OF A KNIGHT (HOLDING TIGHTLY TO  A LANCE)."
308 [131]"(null)OU ARE STANDING IN A DIMLY LIT HALLWAY INSIDE THE HOUSE. (null)HE WALLS ARE FAINTLY AGLOW BY SOFT CANDLE LIGHT. ATN FEW       CANDLES FLICKER IN THE DARKNESS.
309 DATA"[217]OU NOTICE A DOORWAY AHEAD, HEADING INTOTHE [205]ASTER BEDROOM."
310 DATA"[217]OU ARE INSIDE THE [205]ASTER BEDROOM OF THEHOUSE. [193] LARGE [209]UEEN SIZED BED IS       VISIBLE IN THE CENTER OF THE ROOM.":DATA"[193] PLUSH CARPET IS ALSO HERE."
311 DATA"[217]OU ARE STANDING INSIDE THE [205]ASTER      BATH. [193] BASIN IS HERE WHERE YOU CAN WASHYOUR FACE (OR DO WHATEVER ELSE IT IS    YOU CAME HERE TO DO)."
312 DATA"[212]HERE IS A CLOSET HERE AS WELL. [211]EVERAL ROWS OF CLOTHING CAN BE SEEN JUST INSIDETHE FRONT DOORWAY."
313 DATA"[217]OU ARE STANDING IN A RATHER SPACIOUS   CLOSET. [210]OWS OF CLOTHING ADORN EITHER   SIDE OF THE DOORWAY. [217]OU NOTICE A FEW   ITEMS OF INTEREST HERE AS WELL."
314 DATA"[207]N ONE RACK YOU NOTICE A FINE SUIT AND  TIE."
315 DATA"[217]OU ARE STANDING IN THE [205]AIN KITCHEN OF THE HOUSE. [193] WOODEN TABLE LIES IN THE   CENTER, WITH SOME ITEMS RESTING ATOP IT."
316 DATA"[217]OU NOTICE A LARGE SACK ATOP THE TABLE."
317 DATA"[217]OU ARE STANDING IN FRONT OF A LARGE    HOUSE. [201]T IS AGED AND WORN WITH TIME,   POSSIBLY AS OLD AS THE [214]ICTORIAN ERA!"
318 DATA"[193] PATH LEADS INTO THE HOUSE FROM THE    NORTH. [212]HE TRAIL HEADS OFF WEST OF HERE TOWARDS A LARGE MEADOW."
319 DATA"[217]OU ARE STANDING IN A GRASSY MEADOW EASTOF A LARGE HOUSE. [217]OU SEE A FEW FLOWERS BLOOMING IN SMALL PATCHES ALONGSIDE THE GRASS."
320 DATA"[193] SMALL POND LIES TO THE NORTH OF HERE, OBSCURED BY LUMBERING [207]AK TREES."
321 DATA"[217]OU STAND BEFORE A SMALL POND NEAR A    GRASSY MEADOW. [212]HE WATER IS RELATIVELY  DARK AND MURKY, WITH MOSS VISIBLE ON    ROCKS NEARBY."
322 DATA"[212]HE PATH HEADS SOUTH FROM HERE PAST A   LARGE, ROLLING MEADOW."
323 DATA"[217]OU ARE WALKING ALONG A WELL-TRAVELLED  PATH NEAR A FOREST, THE TREETOPS OF     WHICH RISE SEVERAL FEET ABOVE."
324 DATA"[212]HE GROUND IS COVERED MOSTLY WITH OLD   LEAVES, ALTHOUGH UP AHEAD YOU NOTICE A  SMALL CLEARING (AWAY FROM THE FOREST)."
325 DATA"[217]OU ARE STANDING IN A DAMP AND DARK     FOREST. [212]HE GROUND IS QUITE WET FROM A  RECENT STORM. [204]EAVES AND MUD ARE MIXED  TOGETHER UPON THE GROUND."
326 DATA"[212]HE FOREST CONTINUES EAST INTO A THICK  WOOD."
327 DATA"[217]OU ARE STANDING IN A THICK WOOD. [212]HE   TREES ARE MOSTLY BARE, BUT IT ISN'T     IMMEDIATELY OBVIOUS WHY. [211]OME ARE BLACK-ENED WITH ASH AND SOOT."
328 DATA"[212]HE WOODS BECOME LESS DENSE TO THE WEST,WHILE A SMALL VILLAGE IS VISIBLE UP     AHEAD TO THE NORTH."
329 DATA"[217]OU ARE WALKING ON A WELL-TRAVELLED PATHNEAR TOWN. [193] LARGE FOREST STANDS TO THE SOUTH, WHILE A MEADOW IS VISIBLE FAR TO THE SOUTHWEST."
330 DATA"[212]HE ROAD INTO TOWN HEADS NORTH."
331 DATA"[217]OU ARE STANDING NEAR THE ENTRANCE TO   A VILLAGE. [211]MOKE BILLOWS FROM CHIMNEYS  AS CLOUDS DRIFT ON BY. [193] TAVERN IS VIS- IBLE TO THE NORTH OF HERE."
332 DATA"[217]OU ALSO NOTICE A WELL NEAR THE CENTER OF TOWN."
333 DATA"[217]OU ARE STANDING BEFORE A WELL. [193] BUCKETIS HERE WHERE YOU CAN OBTAIN WATER FROM BELOW. [212]HE SIDES OF THE WELL ARE GREEN  WITH MOSS."
334 DATA"[212]HE WATER RISES FROM THE DEPTHS OF THE  WELL BOTTOM BY SOME 50 FEET."
335 DATA"[217]OU ARE STANDING ON THE MAIN PATH       THROUGH TOWN. [193] WELL IS VISIBLE DIRECTLYNORTH OF HERE, WHILE A TAVERN IS MUCH   FURTHER DOWN THE ROAD."
336 DATA"[193] CHURCH LIES TO THE WEST, ITS SPIRE    CUTTING ACROSS THE CLOUDS WITH A SHARP- NESS RESERVED FOR KNIVES."
337 DATA"[217]OU ARE STANDING INSIDE A LARGE CATH-   EDRAL. [210]OWS OF PEWS ADORN THE MASSIVE   INTERIOR OF THIS CHURCH. [212]HERE ARE      STAINED GLASS WINDOWS HERE,TOO."
338 DATA"[213]P NEAR THE FRONT STANDS A LARGE ALTAR. [210]OWS OF ITEMS ADORN THE BASE, WITH A    LARGE CRUCIFIX HANGING DOWN FROM ABOVE  (NEAR THE CEILING)."
339 DATA"[217]OU STAND BEFORE AN ALTAR IN THE CATH-  EDRAL. [213]PON IT RESTS SEVERAL ITEMS, MANYOF WHICH MAY SERVE SOME USEFUL PURPOSE."
340 DATA"[212]HE MAIN WALKWAY OF THE CHURCH IS       DIRECTLY SOUTH."
341 DATA"[217]OU ARE STANDING IN THE BACK ROOM OF    THE CATHEDRAL. [211]EVERAL ITEMS ARE STACKEDNEATLY AGAINST THE BACK WALL."
342 DATA"[212]HE ONLY EXIT IS BACK WEST."
343 DATA"[217]OU ARE STANDING IN A LARGE TAVERN.     [212]HERE IS A BAR UP AHEAD TO THE NORTH,   WHILE A STAIRCASE LEADS UPWARDS TO THE  SECOND FLOOR OF THE TAVERN."
344 DATA"[211]EVERAL TABLES AND CHAIRS ARE ALSO HERE (SOME OF THEM OCCUPIED)."
345 DATA"[217]OU ARE STANDING BEFORE THE BAR INSIDE  THE TAVERN. [193] STOUT FELLOW NAMED [194]ARNAS GREETS YOU WITH A SMILE."
346 DATA"[212]HE ONLY EXIT IS BACK SOUTH."
347 DATA"[217]OU ARE STANDING BEFORE A LONG AND WIND-ING STAIRCASE INSIDE THE TAVERN. [212]HE    STAIRCASE ASCENDS TO THE SECOND FLOOR   OF THIS TAVERN."
348 DATA"[212]HERE IS A HALLWAY UP ABOVE WHICH LEADS INTO SEVERAL ROOMS."
349 DATA"[217]OU ARE STANDING ON THE SECOND FLOOR OF THE TAVERN. [212]HE HALLWAY HEADS WEST HERE PAST SEVERAL ROOMS."
350 DATA"[207]N THE OTHER SIDE OF THE HALLWAY IS A   LARGE [207]AK DOOR."
351 DATA"[217]OU STAND BEFORE AN [207]AK DOOR AT THE END OF THE HALLWAY. [201]T APPEARS TO BE LOCKED AT THE MOMENT. [200]OWEVER, IF YOU COULD    JUST LOCATE THE KEY..."
352 DATA"[212]HE ONLY EXIT IS BACK EAST."
353 DATA"[193]T LAST YOU OPEN THE DOOR! [212]HE ROOM IS  MOSTLY BARE, SAVE FOR A SMALL BED AND   DRESSER DRAWER."
354 DATA"[193]TOP THE DRESSER YOU NOTICE A LARGE     MIRROR."
355 DATA"[217]OU ARE STANDING INSIDE A SMALL SHOP    IN TOWN. [193] CLERK IS HERE, ATTENDING TO  A FEW LOCAL PATRONS. [217]OU NOTICE ROWS OF SHELVES HERE AS WELL."
356 DATA"[211]OME OF THEM CONTAIN USEFUL ITEMS, BUT  YOU'LL HAVE TO PAY FOR THEM FIRST!      [212]YPE LIST[146] TO SEE WHAT'S SOLD HERE."
357 DATA"[217]OU STAND BEFORE A LARGE, HULKING CASTLEAT THE END OF THE FOREST. [201]T IS SHROUDEDIN MYST, BUT NEVERTHELESS RISES HUNDREDSOF FEET INTO THE AIR."
358 DATA"[212]HE RAMPARTS OF THE CASTLE RISE ABOVE,  WITH DARK RED FLAGS FLAPPING GENTLY IN  THE BREEZE."
359 DATA"[217]OU ARE INSIDE THE MAIN HALLWAY OF      [205]YSTIC CASTLE. [201]T IS A TRUE RELIC FROM  THE [196]ARK [193]GES, WHEN MEN COULD ONLY DREAMOF THE TECHNOLOGIES OF TODAY.
360 [131]"(null)HE HALLWAY OF THE CASTLE HEADS PAST    SEVERAL COLUMNS (SOME OF THEM DECORATED WITH BANNERS AND GRIFFONS)."
361 [131]"(null)OU ARE BEFORE A THRONE IN THE THRONE   ROOM OF THIS CASTLE. RIGHT$T IS PLATED IN    GOLD AND ENCRUSTED WITH PRECIOUS JEWELS.ATN SCEPTER IS ALSO HERE."
362 [131]"(null)O THE WEST OF THE THRONE ROOM STANDS   A HALLWAY, HEADING INTO DARKNESS BELOW."
363 [131]"(null)OU ARE WALKING IN A DARKENED HALLWAY   (JUST WEST OF THE THRONE ROOM). LENANDLES FLICKER SOFTLY ON EITHER SIDE, CASTING  DARK SHADOWS."
364 [131]"(null)P AHEAD TO THE NORTH LIES A SINGLE     CELL, APPARENTLY OCCUPIED."
365 [131]"(null)OU ARE STANDING BEFORE A LONE CELL     WITHIN THE DUNGEON. ATNN OLD MAN IS HERE, EATING GINGERLY FROM A BOWL. LEFT$E APPEARS FRAIL AND AGED, AND IN POOR"
366 [131]"SHAPE. LEFT$E LOOKS UP AT YOU BRIEFLY, AND  THEN CONTINUES EATING HIS SOUP."
367 [131]"(null)HE OLD MAN LOOKS UP AT YOU. 'RIGHT$ WAS ONCESTRONG AND FIT, JUST LIKE YOU.' HE SAYS WITH A FAINT HEART."
368 [131]"'PEEKUT AGE AND TIME HAS TAKEN THAT AWAY    FROM ME, LIKE CHAFF FROM WHEAT.'"
369 [131]"(null)OU SAY TO THE OLD MAN, '(null)HY ARE YOU    HERE? (null)HO PUT YOU INSIDE THIS CELL?'"
370 [131]"(null)HE OLD MAN REPLIES, '(null)Y NAME IS VALRIC.  RIGHT$ WAS ONCE (null)ING OF THIS VERY CASTLE.    PEEKUT ONE DAY MY BEST KNIGHT TURNED       AGAINST ME, CASTING ME HERE.'
371 DATA"[217]OU ATTEMPT TO OPEN THE CELL, BUT THE   DOOR DOESN'T BUDGE. [212]HE OLD MAN NODS    TO YOU, SAYING, '[201] APPRECIATE THE EFFORTBUT THAT DOOR IS LOCKED.'"
372 DATA"[217]OU'LL NEED TO FIND A WAY TO OPEN THE   DOOR AND FREE HIM, OTHERWISE HE'LL      BE DOOMED TO REMAIN HERE...POSSIBLY TO  THE END OF HIS DAYS!"
373 DATA"[193]T LAST YOU OPEN THE CELL DOOR! [212]HE OLD MAN SMILES GENTLY. '[212]HANK YOU, MY BRAVE FRIEND. [200]OWEVER CAN [201] THANK YOU FOR     DOING THIS BRAVE DEED?'"
374 DATA"[194]UT YOU REPLY SIMPLY, '[201] HAVE DONE NO   BETTER THAN ANYONE ELSE.' [212]HE OLD MAN   NODS, AND THEN SAYS TO YOU, '[215]HY DON'T  YOU HELP ME OUT OF HERE?'"
375 DATA"[217]OU HELP THE OLD MAN TO HIS FEET. [211]TEP  BY STEP, YOU LEAD HIM OUT OF THE DUNGEONAND INTO THE LIGHT OF THE THRONE ROOM.  [200]E IS VERY GRATEFUL."
376 DATA"'[212]HANK YOU, MY BRAVE FRIEND,' HE SAYS   TO YOU. '[201] WILL FOREVER BE ENDEBTED TO  YOU. [215]HAT IS MINE IS NOW YOURS. [201] WILL  TAKE COMFORT IN THIS TRUTH.'"
377 REM RESPONSE DATA
378 DATA "[212]ELL ME A DIRECTION TO GO IN FIRST.","[217]OU ALREADY HAVE THE "
379 DATA "[198]URTHER TRAVEL NORTH IS BLOCK BY FALLEN TREES.
380 [131] "RIGHT$ DO NOT UNDERSTAND YOU.","(null)OU ARE NOT CARRYING THE "
381 [131] "(null)OU SEE NOTHING SPECIAL.","RIGHT$T IS TOO DARK TO SEE."
382 [131] "(null)OU CANNOT GO THAT WAY.","(null)OU DO NOT HAVE THE ","(null)OTHING HAPPENS."
383 [131] "RIGHT$ DO NOT SEE THE ","(null)OU CANNOT PICKUP A DIRECTION!"
384 [131] "(null)OU CANNOT PICK UP ","(null)OU CAN'T EAT SOMETHING THAT YOU DON'T  HAVE!"
385 [153]">";
386 [139]LO(37)[178]75[167][153]"300:  SHORTSWORD.
387 IFLO(26)=75THENPRINT"75:   WOLFSBANE.
388 [139]LO(13)[178]75[167][153]"100:  LANTERN.
389 IFLO(14)=75THENPRINT"15:   MIRROR.
390 [139]LO(15)[178]75[167][153]"35:   POLE.
391 IFLO(36)=75THENPRINT"180:  BOWIEKNIFE.
392 [139]LO(27)[178]75[167][153]"1500: IRONAXE.
393 IFLO(23)=75THENPRINT"42:   TORCH.
394 [139]LO(24)[178]75[167][153]"16:   CANTEEN.
395 IFLO(19)=75THENPRINT"24:   SACK.
396 [139]LO(7)[178]75[167][153] "30:   FOOD.
397 IFLO(9)=75THENPRINT "100:  BACKPACK.
398 [139]LO(10)[178]75[167][153]"40:   OIL.
399 IFLO(12)=75THENPRINT"20:   HOLYWATER.
400 [139]LO(18)[178]75[167][153]"84:   SMALLSACK.
401 IFLO(25)=75THENPRINT"1000: WINE.
402 [139]LO(32)[178]75[167][153]"70:   DAGGER.
403 IFLO(38)=75THENPRINT"5000: SCIMITAR.
404 [139]LO(39)[178]75[167][153]"6000: TWO-HANDED SWORD."
405 [142]
406 P[178]0:OB[178]N:[139]N[178]37[167]P[178]300
407 [139]N[178]26[167]P[178]75
408 [139]N[178]13[167]P[178]100
409 [139]N[178]14[167]P[178]15
410 [139]N[178]15[167]P[178]35
411 [139]N[178]36[167]P[178]180
412 [139]N[178]27[167]P[178]1500
413 [139]N[178]23[167]P[178]42
414 [139]N[178]24[167]P[178]16
415 [139]N[178]19[167]P[178]24
416 [139]N[178]7[167]P[178]30
417 [139]N[178]9[167]P[178]100
418 [139]N[178]10[167]P[178]40
419 [139]N[178]12[167]P[178]20
420 [139]N[178]18[167]P[178]84
421 [139]N[178]25[167]P[178]1000
422 [139]N[178]32[167]P[178]70
423 [139]N[178]38[167]P[178]5000
424 [139]N[178]39[167]P[178]6000
425 [139]P[178]0[167][153]"(null)OU CAN'T DO THAT.":[153]"(null)HE SHOP WON'T HAVE IT."
426 [142]
10000 [159]1,8,15,"I0":N$[178]"MYSTIC CASTLE/64"
10001 [152]1,"S0:"[170]N$:[160]1:[148]N$,8:[128]
11000 [151]53269,0:A$[178]"H":[151]1,55
11001 [153]"LOADSTOPLOADA$,8":[153]"RUN"
11002 [151]198,2:[151]631,13:[151]632,13:[128]
62999 [143] FREEZE 6 LINES SUBROUTINE - BY CAMERON KAISER
63000 [143] WINDOW STUFF
63002 [151]770,131:[151]771,164:[151]88,0:[151]89,192:[151]90,0:[151]91,192
63003 [151]781,33:[151]782,0:[158]41964
63004 [151]88,254:[151]89,255:[151]90,254:[151]91,255
63005 [151]781,33:[151]782,0:[158]41964
63007 [151]59639,5:[151]1,53:[142]